home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Perl < prev    next >
Text File  |  1994-06-18  |  1KB  |  26 lines
  1. # FILE: aliases.Perl
  2. #
  3. # DESC: Aliases for Perl mode
  4. #
  5. # LAST UPDATE: 01/06/93 5:29:47 AM 
  6.  
  7.     electricAlias-def ÑPerl ÑPerl ÑPerl
  8.     electricAlias-var Perl bb "\{"
  9.     electricAlias-var Perl eb "\}"
  10.     electricAlias-var Perl bc "#"
  11.     electricAlias-var Perl ec ""
  12.     electricAlias-def ÑPerl #!       "ñ╟askalias {File name} NAME╚#! /usr/local/bin/perl -f\r#\r# ñ{NAME}Ñ\r\rÑ"
  13.     electricAlias-def ÑPerl sub      "ñ╟askalias {subroutine name} NAME╚sub ñ{NAME} \{\r\tlocal (Ñ)=@_;\r\tÑ\r\}ñ{bc}endsub ñ{NAME}ñ{ec}Ñ"
  14.     electricAlias-def ÑPerl \{       "\{\r\tÑ\r\}Ñ"
  15.     electricAlias-def ÑPerl do       "do \{\r\tÑ\r\} while (Ñ);Ñ"
  16.     electricAlias-def ÑPerl for      "for (Ñ;Ñ;Ñ) \{\r\tÑ\r\}ñ{bc}endforñ{ec}Ñ"
  17.     electricAlias-def ÑPerl foreach  "foreach Ñ (Ñ) \{\r\tÑ\r\}ñ{bc}endforeachñ{ec}Ñ"
  18.     electricAlias-def ÑPerl while    "while (Ñ) \{\r\tÑ\r\}ñ{bc}endwhileñ{ec}Ñ"
  19.     electricAlias-def ÑPerl until    "until (Ñ) \{\r\tÑ\r\}ñ{bc}enduntilñ{ec}Ñ"
  20.     electricAlias-def ÑPerl if       "if (Ñ) \{\r\tÑ\r\}ñ{bc}endifñ{ec}Ñ"
  21.     electricAlias-def ÑPerl unless   "unless (Ñ) \{\r\tÑ\r\}ñ{bc}endunlessñ{ec}Ñ"
  22.     electricAlias-def ÑPerl elsif    "\b\} elsif (Ñ) \{\rÑ"
  23.     electricAlias-def ÑPerl elseif   "\b\} elsif (Ñ) \{\rÑ"
  24.     electricAlias-def ÑPerl else     "\b\} else \{\rÑ"
  25.  
  26.